home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / comm / www / ffchecker.lha / ffchecker / goweb.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-09-30  |  958 b   |  41 lines
  1. /*  FFchecker gotourl.rexx written by Gavin Mclean
  2. ** (fast@f1world.demon.co.uk)
  3. **  for use with FFchecker. */
  4.  
  5.  
  6. /*--------- Enter the Path to your Browser : ----------*/
  7.  
  8. BROWSER = "dh1:internet/ibrowse/ibrowse"
  9.  
  10. /*---------- ARexx port of Browser : ---------*/
  11.  
  12. APORT = "IBROWSE"
  13.  
  14. /*--------------------------------------------*/
  15.  
  16. PARSE ARG url
  17. OPTIONS RESULTS
  18.  
  19. url="http://www.f1world.demon.co.uk/f1gp/"
  20.  
  21. Display:
  22.     SELECT
  23.         WHEN SHOW("P", "IBROWSE")     THEN Browser("IBROWSE","GOTOURL "url)
  24.         WHEN SHOW("P", "AWEB.1")      THEN Browser("AWEB.1","OPEN "url)
  25.         WHEN SHOW("P", "AMOSAIC.1")   THEN Browser("AMOSAIC.1","JUMP URL "url)
  26.         WHEN SHOW("P", "VOYAGER")     THEN Browser("VOYAGER","GOTOURL "url)
  27.         OTHERWISE NoBrowser()
  28.     END
  29.  
  30. Browser:
  31.     PARSE ARG port,loadpage
  32.     ADDRESS(port)
  33.     loadpage
  34.     EXIT
  35.  
  36. NoBrowser:
  37.     ADDRESS COMMAND 'Run ' BROWSER
  38.     ADDRESS COMMAND "WaitForPort" APORT
  39.     Display()
  40.     EXIT
  41.